Option Explicit
Sub Q_Sample024()
    ']wޥζMicrosoft Internet Controls
    Dim myIE      As InternetExplorer
    Dim myFindstr As String
    Dim myUrl     As String
    'wtjMURLHTML
    Const myHtml As String = _
        "<html>" & _
        "<FORM method=""GET"" action=""http:" & _
        "//www.google.com/search"" target=""_new"">" & _
        "<INPUT type=""text"" name=""q""><INPUT type=""submit""></FORM></html>"
    myUrl = ThisWorkbook.Path & "\google.html"      'wȮɦW
    Open myUrl For Output As #1
    Print #1, myHtml
    Close #1
    myFindstr = "drmaster"                      'jMr
    Set myIE = New InternetExplorer
    With myIE
        .Navigate myUrl
        Do While .Busy
        Loop
        With .Document.Forms(0)
            .Item("q").Value = myFindstr
            .Submit
        End With
        .Quit
    End With
    Set myIE = Nothing                          '
End Sub
